home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / DDPLUS71.ZIP / RIPLINK.ZIP / RIPLINKD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-18  |  830 b   |  45 lines
  1. Unit RipLinkDriver;
  2.  
  3. {.OBJ declarations}
  4.  
  5. Interface
  6.  
  7. const
  8.   RLDCopyright = '  RipLinkDriver(tm) - Copyright (C) 1994 by InterProgramming, All Rights Reserved.  ';
  9.   RLDCopyright2= '  Portions Copyright 1994 by InterProgramming  ';
  10.  
  11. Procedure EGAVGADriver;
  12. Procedure GothicFont;
  13. Procedure LittFont;
  14. Procedure SansSerifFont;
  15. Procedure TripFont;
  16.  
  17. Implementation
  18.  
  19. Procedure EGAVGADriver; external;
  20. {$L EGAVGA.OBJ}
  21.  
  22. Procedure GothicFont; external;    {Gothic}
  23. {$L GOTH.OBJ}
  24.  
  25. Procedure LittFont; external;      {Small}
  26. {$L LITT.OBJ}
  27.  
  28. Procedure SansSerifFont; external; {SansSerif}
  29. {$L SANS.OBJ}
  30.  
  31. Procedure TripFont; external;      {Triplex}
  32. {$L TRIP.OBJ}
  33.  
  34. Procedure DoNunca;
  35. var
  36.   davar, davar2 : string;
  37. begin
  38.   davar := RLDCopyright;
  39.   davar2 := RLDCopyright2;
  40. end;
  41.  
  42. begin
  43.   DoNunca;
  44. End.
  45.